dr1='N:'
DR2='N:'
PIL=0
DO WHILE PIL=0
   SET COLOR TO W+/B
   @ 7,1 CLEA TO 23,78
   SET COLO TO W+/N
   @  9, 5 CLEA TO 23,39
   SET COLO TO N/BG,W+/N
   @  8, 3 CLEA TO 22,37
   @  8, 3 TO 22,37 DOUBLE
   @  9, 5 PROMPT " A .. INDEX ACTIVE DATABASES   "
   @ 11, 5 PROMPT " B .. INDEX PATIENT DATABASE   "
   @ 13, 5 PROMPT " C .. INDEX MEDICAL PROCEDURES "
   @ 15, 5 PROMPT " D .. INDEX COMPANY DATABASE   "
   @ 17, 5 PROMPT " E .. INDEX DRUGS & DISPOSABLE "
   @ 19, 5 PROMPT " F .. INDEX ACTIVITY & REVENUE "
   @ 21, 5 PROMPT " G .. INDEX HEALTHLINE         "
   SET COLO TO W+/N
   @ 19,44 CLEA TO 23,77
   SET COLO TO N/BG,W+/N
   @ 16,42 CLEA TO 22,75
   @ 16,42 TO 22,75 DOUBLE
   @ 17,44 PROMPT " H .. INDEX PO - DO            "
   @ 19,44 PROMPT " I .. INDEX SUPPLIER           "
   @ 21,44 PROMPT " X .. RETURN TO PREVIOUS MENU "
   MENU TO PIL
   SET COLOR TO W+/B,W+/N
   @  7,40 CLEA TO 23,78
   IF PIL=10 .OR. LASTKEY()=27
      CLOS ALL
      RETURN
   ELSE
      IF PIL=6
         LIM=1
         DO BOX2 WITH 10,46," ","ALL MONTH","LAST MONTH",'GR+','RB','GR+','R',LIM,.F.,.T.
      ENDIF
      PR=1
      DO BOX2 WITH 14,50," ","INDEX","CANCEL",'GR+','RB','GR+','R',PR,.F.,.T.
      IF PR=1
         set color to GR+*/R
*         @ 15,50 SAY "Indexing..."
         SET COLOR TO W+/B,W+/N
         SET DELE OFF
         DO CASE
            CASE PIL=1 .OR. PIL=2
               DO INDEB
               USE
               IF PIL=1
                  lim=1
                  DO INDEMED
                  DO INDECOMP
                  DO INDEPHAR
                  DO INDEACT
                  DO INDHL
                  DO INDPUR
                  DO INDDOR
                  DO INDSUPP
                  do inderat
               ENDIF
            CASE PIL=3
               DO INDEMED
            CASE PIL=4
               DO INDECOMP
            CASE PIL=5
               DO INDEPHAR
            CASE PIL=6
               DO INDEACT
            CASE PIL=7
               DO INDHL
            CASE PIL=8
               DO INDPUR
               DO INDDOR
            CASE PIL=9
               DO INDSUPP
         ENDCASE
         SET COLOR TO W+/B,W+/N
         SET DELE ON
      ENDIF
      EXIT
   ENDIF
ENDDO
SET COLOR TO W+/B, W+/N
@ 7,1 CLEA TO 23,78
RETURN


